;; (PV_MagAbove buffer threshold)

;; Pass only bands where the magnitude is above `threshold'.  This
;; value is not normalized and is therefore dependant on the buffer
;; size.

(define b (buffer-alloc 2048 1 #t))

(Mul (IFFT.ar 
      (PV_MagAbove.kr 
       (FFT.kr (buffer-id b) 
	       (SinOsc.ar (SinOsc.kr (Squared (SinOsc.kr 0.08 0 6 6.2)) 0 100 800))) 
       (MouseX.kr 1 1000)))
     1/2)

(buffer-free b)

